home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / musictex / older-versions / musictex.507 / MUSICBRG.MF < prev    next >
Text File  |  1994-01-31  |  1KB  |  54 lines
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. %  this is musicbrg.mf
  3. %
  4. %  Version 0.99 [August 93] Andreas Egler
  5. %               [January]   Daniel  Taupin
  6. %
  7. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  8. transform t;
  9. path p;
  10.  
  11. pen thin_pen, med_pen, thick_pen;
  12. thin_pen:= pencircle scaled .15pt;
  13. med_pen:= pencircle scaled thin;
  14. thick_pen:= pencircle scaled med;
  15.  
  16. apog_fact=0.75;
  17.  
  18. %%%%%%%%%%%%%%
  19. % big braces %
  20. %%%%%%%%%%%%%%
  21. %
  22. % change firstbrace and lastbrace if you need smaller or larger braces
  23. %
  24.  
  25. firstbrace:=20;  % smallest brace is 2*20 pt (\simeq 14mm)
  26. lastbrace:=99;   % largest brace is 2*99 pt (\simeq 69mm)
  27.  
  28. def bigbrace(expr v) =
  29.     vwidth:=v*pt;
  30.     hwidth:=.2vwidth;
  31.     actwidth:=.035vwidth;
  32.  
  33.     x1=hwidth;  y1=vwidth;
  34.     x2l=.2hwidth; y2=.75vwidth;
  35.     x3r=.8hwidth;  y3=1/3vwidth;
  36.     x4=0; y4=0;
  37.     penpos1(thinwidth,-90);
  38.     penpos2(1.25med+.8actwidth,40);
  39.     penpos3(1.25med+actwidth,45);
  40.     penpos4(.5thin+thinwidth,-90);
  41.  
  42.     currentpen:= pencircle;
  43.     penstroke z1e..z2e..z3e..{left+sw}z4e;
  44.     addto currentpicture also currentpicture reflectedabout (origin, right);
  45.     penlabels(1,2,3,4);
  46. enddef;
  47.  
  48. for v=firstbrace upto lastbrace :
  49.     beginchar (v-firstbrace, .2v*pt#, 0, 0);
  50.         bigbrace (v);
  51.     endchar;
  52. endfor;
  53.  
  54.